home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / portfoli / touch / touch.bas < prev    next >
Encoding:
BASIC Source File  |  1996-10-30  |  1.8 KB  |  86 lines
  1. rem spiel
  2. screen 4:cls
  3. pgshow "portf",2
  4. screen 7:cls
  5.  
  6. cls
  7. print "    חללללללל Touch ללללללללללללל†"
  8. print "    ´םגגגגגגגגגג™               ´"
  9. print "    ´ø          ø         Uhr   ´"
  10. print "    ´ijגגגגגגגגגגך               ´"
  11. print "    וגאג™           Level :     ´"
  12. print "    ´ ø ø           Punkte:     ´"
  13. print "    זלנלנללללללללללללללללללללללל¶"
  14. locate 1,20:print fre(0);" "
  15. locate 3,21:print left$(time$,5)
  16.  
  17. randomize
  18. dim x(6),y(6),g(30)
  19.  
  20. 1 locate 3,7:print space$(10)
  21. locate 3,7:print "Lev. (2-6)"
  22. 2 i$=inkey$
  23. if i$="" then goto 2
  24. l=val(i$)
  25. if l<2 or l>6 then goto 1
  26. locate 3,7:print space$(10)
  27. gosub 200
  28.  
  29. locate 6,29:print " "
  30. locate 5,29:print l
  31. for i=1 to 6:x(i)=6:y(i)=i*2+4:next i
  32. for i=1 to 30
  33. g(i)=int(rnd*l+1)
  34. next i
  35.  
  36. for z=1 to 30
  37.  
  38. locate 3,7:Print "Computer"
  39. for v=1 to z
  40.  
  41. locate x(g(v)),y(g(v)):print str$(g(v)):sound 46+g(v)*2,45
  42. rem for i=1 to 20:next i
  43. locate x(g(v)),y(g(v)):print " "
  44. next v
  45.  
  46. locate 3,7:print "Human   "
  47.  
  48. for z2=1 to z
  49. 30 i$=inkey$
  50. if i$="" then 30
  51. if i$<>str$(g(z2)) then goto 100
  52. locate x(g(z2)),y(g(z2)):print str$(g(z2)):sound 46+g(z2)*2,45
  53. locate x(g(z2)),y(g(z2)):print " "
  54. next z2
  55. locate 6,29:print z
  56. for i=1 to 100:next i
  57. locate 3,21:print left$(time$,5)
  58. next z
  59.  
  60. locate 3,7:print "Gewonnen !"
  61. for i=1 to z
  62. sound 46+g(i)*2,45
  63. goto 105
  64.  
  65. 100 locate 3,7:print "Fehler !":beep
  66. for i=1 to 175:next i
  67. 105 locate 3,7:print "Nochmal ? "
  68. 110 i$=inkey$
  69. if i$="" then goto 110
  70. if i$="j" then goto 1
  71. cls
  72. end
  73.  
  74.  
  75. 200 rem
  76. locate 5,1:print "    וגאג™          "
  77. print "    ´ ø ø          "
  78. print "    זלנלנלללללללללל"
  79. if l=2 then goto 210
  80. for i=1 to l-2
  81. locate 5,7+i*2:print "אג™"
  82. locate 6,7+i*2:print "ø ø"
  83. locate 7,7+i*2:print "נלנ"
  84. next i
  85. 210 return